object VerebrForm: TVerebrForm
  Left = 2
  Top = 49
  ActiveControl = EditARA
  BorderStyle = bsDialog
  Caption = 'Veresiye Sat��lar'
  ClientHeight = 356
  ClientWidth = 630
  Color = 8421440
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 3
    Top = 325
    Width = 95
    Height = 14
    Caption = 'Aranan Cari Kodu'
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 630
    Height = 305
    Align = alTop
    Color = clSilver
    DataSource = DataSource1
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    TitleFont.Color = clRed
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    OnKeyPress = DBGrid1KeyPress
  end
  object EditARA: TEdit
    Left = 102
    Top = 320
    Width = 227
    Height = 22
    TabOrder = 1
    OnKeyPress = EditARAKeyPress
  end
  object BitBtnKpt: TBitBtn
    Left = 510
    Top = 320
    Width = 89
    Height = 27
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial Tur'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    Kind = bkCancel
    Spacing = 1
  end
  object BitBtn1: TBitBtn
    Left = 366
    Top = 320
    Width = 89
    Height = 25
    Caption = '&Se�'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ModalResult = 1
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn1Click
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
      0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
      00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
      00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
      F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
      F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
      FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
      0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
      00337777FFFF77FF7733EEEE00000000033377777777777773330000}
    NumGlyphs = 2
  end
  object Query1: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'Select'
      '  HAREKET.CARIKOD,'
      '  HAREKET.HAREKNO,'
      '  HAREKET.ALSATNO,'
      '  HAREKET.ALSAT,'
      '  HAREKET.TUR,'
      '  HAREKET.TARIH,'
      '  HAREKET.VADE,'
      '  HAREKET.ALACAK,'
      '  HAREKET.BORC,'
      '  HAREKET.NIHAI,'
      '  HAREKET.SONTARIH,'
      '  HAREKET.BILGI'
      'FROM HAREKET'
      'WHERE (TUR='#39'M'#39')  AND'
      '(ALSAT='#39'S'#39')  AND'
      '(ALSATNO IS NOT NULL)'
      'ORDER BY CARIKOD')
    Left = 8
    Top = 16
    object Query1CARIKOD: TStringField
      DisplayLabel = 'CAR� ADI'
      DisplayWidth = 17
      FieldName = 'CARIKOD'
      OnGetText = Query1CARIKODGetText
      Size = 11
    end
    object Query1ALSATNO: TFloatField
      DisplayLabel = 'Sat.No'
      DisplayWidth = 6
      FieldName = 'ALSATNO'
    end
    object Query1ALSAT: TStringField
      FieldName = 'ALSAT'
      Visible = False
      Size = 1
    end
    object Query1TUR: TStringField
      FieldName = 'TUR'
      Visible = False
      Size = 1
    end
    object Query1TARIH: TDateField
      DisplayLabel = 'TAR�H'
      DisplayWidth = 8
      FieldName = 'TARIH'
      DisplayFormat = 'dd.mm.yy'
    end
    object Query1VADE: TDateField
      DisplayWidth = 8
      FieldName = 'VADE'
      DisplayFormat = 'dd.mm.yy'
    end
    object Query1BORC: TCurrencyField
      DisplayLabel = 'BOR�'
      DisplayWidth = 11
      FieldName = 'BORC'
      DisplayFormat = '#,#'
    end
    object Query1NIHAI: TSmallintField
      DisplayLabel = 'Son Durum'
      DisplayWidth = 8
      FieldName = 'NIHAI'
      OnGetText = Query1NIHAIGetText
    end
    object Query1SONTARIH: TDateField
      DisplayLabel = 'Son D.Trh'
      DisplayWidth = 8
      FieldName = 'SONTARIH'
      DisplayFormat = 'dd.mm.yy'
    end
    object Query1BILGI: TStringField
      DisplayLabel = 'B�LG�'
      FieldName = 'BILGI'
      Size = 36
    end
    object Query1HAREKNO: TFloatField
      DisplayLabel = 'Hrk.No'
      DisplayWidth = 6
      FieldName = 'HAREKNO'
    end
    object Query1ALACAK: TCurrencyField
      FieldName = 'ALACAK'
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 40
    Top = 16
  end
  object HstAl: TTable
    DatabaseName = 'ECZ'
    ReadOnly = True
    TableName = 'HASTA.DB'
    Left = 256
    Top = 144
    object HstAlHASTANO: TIntegerField
      FieldName = 'HASTANO'
    end
    object HstAlHASTADI: TStringField
      FieldName = 'HASTADI'
      Size = 18
    end
    object HstAlHASTASOYAD: TStringField
      FieldName = 'HASTASOYAD'
      Size = 18
    end
  end
end